developer/Samples/NET 4.6/Samples for Parallel/Raytracer/Raytracer_VisualBasic/SceneObject.vb

   1 '--------------------------------------------------------------------------
   2 '
   3 '  Copyright (c) Microsoft Corporation.  All rights reserved.
   4 '
   5 '  File: SceneObject.vb
   6 '
   7 '--------------------------------------------------------------------------
   8
   9 Public MustInherit Class SceneObject
  10     Public Surface As Surface
  11     Public MustOverride Function Intersect(ByVal ray As Ray) As ISect
  12     Public MustOverride Function Normal(ByVal position As Vector) As Vector
  13
  14     Public Sub New(ByVal surface As Surface)
  15         Me.Surface = surface
  16     End Sub
  17 End Class